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ENTITY ALOOP IS 
PORT( 

A:INBIT_VECTOR(0TO1); 
RESET : IN BOOLEAN; 
STATUS: OUT BOOLEAN); 

END ENTITY ALOOP; 



ARCHITECTURE RTL OF ALOOP IS 



BEGIN 



PROCESS(A, RESET) 

VARIABLE ZEROS, ONES : INTEGER ; 
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BEGIN 

— ► IF(RESET) 
THEN 

► STATUS <=0; 

ELSE 

430 ► ZEROS :=0; 

440 ► ONES:=0; 

450 ► FOR UN 0 TO 1 LOOP 

460 ► IFA(l) = '0' 

THEN 

470 ► ZEROS := ZEROS + 1 

ELSE 

► 0NES:=0NES + 1 ; 

END IF ; 
END LOOP ; 
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- STATEMENT #1 

-- STATEMENT #2 

-- STATEMENT #3 
-- STATEMENT #4 
-- STATEMENT #5 
-■ STATEMENT #6 

-■ STATEMENTS? 

-- STATEMENT #8 
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► STATUS <= (ZEROS > ONES) ; 
END IF; 



-- STATEMENT #9 



END PROCESS ; 
END ARCHITECTURE; 
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ENTITY ALOOP IS 
PORT( 

A: IN BIT_VECTOR(0TO1); 
RESET : IN BOOLEAN; 
STATUS : OUT BOOLEAN ; 

SIG_TRACE1, SIG_TRACE2, SIG_TRACE3, SIG_TRACE4, SIG_TRACE5, 
SIG_TRACE6:0UTBIT 

); 

END ENTITY ALOOP; 
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ARCHITECTURE RTL OF ALOOP IS 
BEGIN 

PROCESS(A, RESET) 

VARIABLE TRACE1, TRACE2, TRACES, TRACE4, TRACES, TRACES: BIT; > 
VARIABLE ZEROS, ONES : INTEGER ; 
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BEGIN 
TRACE1 
TRACES 
TRACES 



= '0' ; TRACE2 := '0' ; 
= '0';TRACE4:=V'; 
= '0'; TRACES :='0'; 



■TRACE1:=r; 

IF(RESET) 

THEN 

-^TRACE2 := r ; 

STATUS <= FALSE ; 
ELSE 

-^TRACES :=r; 
ZEROS := 0 ; 
ONES := 0 ; 
FOR I IN 0 T0 1 LOOP 

^TRACE4:='1'; 

IFA(l) = '0' 
THEN 

► TRACES :=r; 

ZEROS := ZEROS + 1 
ELSE 

► TRACES :=r; 

ONES := ONES + 1 ;1 
END IF ; 
END LOOP ; 
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642 ► STATUS <= (ZEROS > ONES) ; - STATEMENT #9 

END IF ; 

SIG_TRACE1 <= TRACE1 ; SIG_TRACE2<= TRACE2 
SIG_TRACE3 <= TRACES ; SIG_TRACE4 <= TRACE4 ; ^ ^J^ 650 
SIG_TRACE5 <= TRACES; SIG_TRACE6 <= TRACES 
END PROCESS ; 



END ARCHITECTURE; 
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800 MODULE SAMPLE(RESET, D, CLK, Q) ; 

INPUT RESET ; 
INPUT D ; 
INPUT CLK; 
REGQ; 
OUTPUT Q; 



ALWAYS @(CLK OR RESET OR D) 
BEGIN 

IF(RESET==1) 
Q<=0; 

ELSE 

IF(CLK==1) 
Q<=D; 

END 



ENDMODULE 
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MODULE SAMPLE(RESET, D, CLK, Q, SIG_TRACE1, SIG_TRACE2, SIG_TRACE3, SIG_TRACE4} ; 



m 



m 

CO 

o 



INPUT RESET ; 
INPUT D ; 
INPUT CLK ; 
REGQ; 
OUTPUT Q; 

REG SIG_TRACE1, SIG_TRACE2, SIG_TRACE3, SIG_TRACE4 ; 
OUTPUT SIG_TRACE1, SIG_TRACE2, SIG_TRACE3, SIG_TRACE4 ; 

INTEGER TRACE1, TRACE2, TRACES, TRACE4; 

ALWAYS @(CLK OR RESET OR D) 
BEGIN 

TRACE1 = 0 ; TRACE2 = 0 ; TRACES = 0 ; TRACE4 = 0 ; 

TRACE1 = 1 ; 

IF(RESET==1) 

BEGIN 

TRACE2=1; 

Q<=0; 

END 

ELSE 

BEGIN 

TRACES =1; 

IF(CLK==1) 

BEGIN 

TRACE4=1; 
Q<=D; 

END 

END 
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SIG_TRACE1 = TRACE1 ; 
SIG_TRACE2=TRACE2; 
SIG_TRACES = TRACES; 
SIG_TRACE4 = TRACE4; 

END 

ENDMODULE 
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1100 PROCESS (CLK, D, RESET) 
BEGIN 

IF (RESET = '1') THEN 
Q <= '0'; 

ELSIF (CLK'EVENT AND CLK = '1') THEN* 
Q<= D; 

END IF; 
END PROCESS 



Oi 

nj 

Ul 



Figure 1 1 



APPROVED 
BY 

DRAFTSMAN 


O.G. FIG. 


cuss 


SUBCLASS 



1210 



1220 



1230 -X. 



1240^ 



Vii 



ii H 

TSSS- 



1250^ 



1260^ 




GENERATE INSTRUMENTATION EVENT SIGNAL 
CORRESPONDING TO THE SAMPLED SIGNAL 



I 



DUPLICATE EACH PROCESS 
REFERENCING THE SAMPLED SIGNAL 



I 
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THE DUPLICATED VERSION OF THE SOURCE 
CODE WITH A UNIQUE LOCAL VARIABLE 
ASSIGNMENT STATEMENT 
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REPUCE EACH OCCURRENCE OF THE 
SAMPLED SIGNALS IN THE DUPLICATED 
CODE WITH THE CORRESPONDING 
INSTRUMENTATION EVENT SIGNAL 
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PROCESS (FAST_CLK) 
BEGIN 

IF(FAST_CLKEVENTAND FAST_CLK= T) 
THEN 

SAMPLED_CLK<=CLK: 

END IF 
END PROCESS; 

CLK_EVENT<= SAMPLED_CLK/=CLK; 
CLK_STABLE <= SAMPLED_CLK= CLK; 
CLK_LASTVALUE<= SAMPLED_CLK; 



PROCESS (CLK, D, RESET, CLK_EVENT) 
VARIABLE TRACE1, TRACE2:BIT; 

BEGIN 

TRACE1 :=V;TRACE2:=V; 
IF (RESET =r) THEN 

TRACE1:='1'; 

Q<='0'; 

ELSIF (CLK_EVENT AND CLK= T) THEN 
TRACE2:=T, 
Q<=D; 

END IF; 

SIG_TRACE1 <= TRACE1; SIG_TRACE2 <= TRACE2; 
END PROCESS; 



PROCESS (CLK, D, RESET) 
BEGIN 

IF (RESET = '1') THEN 
Q<= '0'; 

ELSIF (CLK'EVENT AND CLK = '1 ') THEN 
Q<=D; 

END IF; 
END PROCESS 
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1500 ALWAYS @(POSEDGE CLK OR NEGEDGE RESET) 
BEGIN 

IF (RESET ==0) 
Q<=0; 

ELSE 

Q<=D; 

END 
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1600 ALWAYS @(POSEDGEFAST_CLK) 
BEGIN 

SAMPLED_CLK<=CLK 
SAMPLED_RESET <= RESET; 

END 

ASSIGN CLK_EDGE = SAMPLED_CLK^ CLK; 
ASSIGN RESET_EDGE = SAMPLED_RESET ^ RESET; 

INTEGER TRACE1, TRACE2; 
REG[1:0]SIG_TRACE; 

ALWAYS @(CLK_EDGE OR RESET_EDGE OR CLK OR RESET) 
BEGIN 

TRACE1 = 0;TRACE2=0; 

IF((CLK_EDGE== 1) && (CLK== 1) && (RESET_EDGE == 1) && (RESET== 0)) 
IF (RESET ==0) 

TRACEU1; 

ELSE 

TRACE2= 1' 
SIG_TRACE[0]=Tr'aCE1; 
SIG_TRACE[1]=TRACE2; 

END 



ALWAYS ©{POSEDGE CLK OR NEGEDGE RESET) 
BEGIN 

IF (RESET == 0) 
Q<= 0; 

ELSE 

Q<= D; 

END 
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P1: PROCESS (A, B, C) 



PROCESS (FAST_CLK) 
O BEGIN 

fii IF (FAST_CLK'EVENTAND FAST_CLK = '1 ') 

THEN 

^ SAMPLED_A<=A; 

SAMPLED_B<=B; 

5 SAMPLED_C <= C; 

^ END IF 

END PROCESS; 



P1_ACTIVE <= (SAMPLED_A /= A) 
OR(SAMPLED_B/=B) 
OR(SAMPLED_C/=C); 
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CASE OPCODE IS 
WHEN "00" => TRACE1 

STATE := 1 ; 
WHEN"01"=>TRACE2 

STATE := 2 " 
WHEN "10" =>TRACE3 

STATE := 2 " 
WHEN"11"=>fRACE4 

STATE := 1 ; 
END CASE ; 
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